# 数据读取
# 读取数据保存在共享文档中，这里采用的是标普500 2012年全年每日收盘价
#
# Yuehan Yang. 2014/7/20 yyh@cufe.edu.cn

# 方法一
getwd() 
# 检查默认路径
# 将其更改为你需要的路径
# e.g. setwd("D:/data")  该数据储存路径
SPPRICE <- read.csv("2012(00).csv", header=F, col.names = "price")
attributes(SPPRICE)
#
# PRICE <- read.delim("2012(00).csv", header=F) 作用相同
#
# 要求：
# 3. 这是SP500一年的收盘价（不考虑不开盘日），请问开盘了多少天
# 4. 日期按照从上到下排列，问：最高价位在第几天
# 提示，max()函数显然可以用来寻找最大值，相应的，
# which.max()可以用来寻找最大值的位置。
#
#







# e.g.
max(SPPRICE)
which.max(SPPRICE$price)
# 继续要求：
# 我们已经学过了矩阵赋值，那么，现在用前100天的数据构造10*10的矩阵
# 问前一百天中的最高收盘价在这个矩阵的第几行第几列？








AA<-matrix(SPPRICE$V1[1:100],nrow = 10)
max(AA)
which(AA==max(AA),arr.ind = T)
which.max(AA)
# 为什么前两行代码结果不相等，如何让他们相等？
# 最后，我们用read.csv()读取数据，现在，将这个矩阵保存，
# 我不打算告诉你们使用什么函数了，因为答案很容易获得。



#
# 方法二（剪切板）
# clipboard表示剪切板
DATA1 <- read.table("clipboard") #SP500
#
#
#
data()
# 随 R 启动加载的全部数据集
# 例如我们曾经使用过的 mtcars 数据集
mtcars
# 若我们需要使用 mtcars 中的变量
attach(mtcars)
# 用完之后，节约空间，可以卸载掉
detach(mtcars)
#
#
#
#
# RODBC （目前只适用于 32 位系统）
#library(RODBC)
#DATA2 <- odbcConnectExcel("F:/work/教课/统计计算/第一节课/2012(00).xls")
#
# 练习
# 数据发给大家，读取之后，给出该数据的均值、标准差
# 以该数据前240个元素构造12*20的矩阵
# 给出该矩阵的转置并求出原矩阵特征值
# 作图
#
#
#
#
#
mean(SPPRICE$V1)
sd(SPPRICE$V1)
v1<-matrix(SPPRICE$V1[1:240],12)
plot(v1)
